home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / asc.unt / comp.sys.handhelds_3043_000000.msg
Internet Message Format  |  1991-04-12  |  2KB
  1. Path: en.ecn.purdue.edu!noose.ecn.purdue.edu!samsung!zaphod.mps.ohio-state.edu!casbah.acns.nwu.edu!ucsd!mvb.saic.com!ncr-sd!sdd.hp.com!hp-pcd!hpcvra.cv.hp.com!rnews!hpcvbbs!akcs.dnickel
  2. From: akcs.dnickel@hpcvbbs.UUCP (Derek Scott Nickel)
  3. Newsgroups: comp.sys.handhelds
  4. Subject: upload test (ASC\-> unthreaded)
  5. Message-ID: <277440fd:1502comp.sys.handhelds@hpcvbbs.UUCP>
  6. Date: 23 Dec 90 05:40:07 GMT
  7. Lines: 46
  8.  
  9. well, now that I've said that its to hard to upload to this conf, I
  10. though that I should try again.  If all goes well, the rest of this note
  11. will contain an unthreaded ASC\->...
  12.  
  13.         Derek S. Nickel
  14.  
  15.                                     ASC\->
  16.  
  17. 80000: 02D9D ! Program
  18. 80005: 1592D ; Set last RPL token to <0h> and verify DEPTH >= 1
  19. 8000A: 18FB2 ; Check arguments for type
  20. 8000F: 0400D ; <3h>
  21. 80014: 02D9D ! Program
  22. 80019: [...] ! # 0000h
  23. 80027: 06657 ; Internal NEWOB
  24. 8002C: 62747 ; Internal SWAP and DUP
  25. 80031 60F9B ; drop level two object
  26. 80077: [...] ! "Invalid String"
  27. 8009D: 1A339 ; DOERR (XLIB 2 42)
  28. 800A2: 0312B ! End Marker
  29. 800A7: 03DE0 ; Internal - (2:System Binary,1:System Binary)
  30. 800AC: 055DF ; ""
  31. 800B1: 032C2 ; Internal OVER
  32. 800B6: 61C1C ; allocate nibbles (2:sized object,1:System Binary)
  33. 800BB: 03223 ; Internal SWAP
  34. ; ***D8         B=A    A              ; B.A = size-1
  35. 800E6: 143        A=DAT1 A              ; A.A = adr of alloc str
  36. 800E9: 130        D0=A                  ; D0 = adr of alloc str
  37. 800EC: 169        D0=D0+ 10             ; D0 = adr of new object (alloc
  38. str data)
  39. 800EF: 132        AD0EX                 ; A.A = adr of new object
  40. 800F2: 130        D0=A                  ; ...
  41. 800F5: 141        DAT1=A A              ; adjust stack to new object
  42. 800F8: 174        D1=D1+ 5              ; A = adr of orig 03188 ;
  43. Internal DUP
  44. 80179: 05944 ; Internal BYTES (non-ROM objects) -> (2:System
  45. Binary,1:Binary Integer)
  46. 8017E: 60F9B ; drop level two object
  47. 80183: 60FBB ; Internal 4 ROLL
  48. 80188: 63CFE ; if SAME, then do next/return, else skip next
  49. 8018D: 60F9B ; drop level two object
  50. 80192: 03244 ; Internal DROP
  51. 80197: [...] ! "Invalid String"
  52. 801BD: 1A339 ; DOERR (XLIB 2 42)
  53. 801C2: 0312B ! End Marker
  54. 801C7: 0312B ! End Marker
  55.